[pascal]有一组数

来源：百度知道 编辑：UC知道 时间：2024/07/06 17:39:12
有一组数，其排列形式如下：11，19，9，12，5，20，1，18，4，16，6，10，15，2，17，3，14，7，13，8，且尾部8和头部11首尾相连，构成环形的一组数，编程找出相邻的4个数，其相加之和最大，并给出它们的起始位置。

同志们哪，我求的是程序，不是思路！！！！！！

Program Circ;
Const a: Array [1..10] Of Byte=
(11, 19, 9, 12, 5, 20, 1, 18, 4, 16, 6, 10, 15, 2, 17, 3, 14, 7, 13, 8)
Var i, j, max, maxm, s: Byte;
Begin
max:=0;
For i:=1 To 20 Do Begin
s:=0;
For j:=0 To 3 Do Inc(s, a[(i+j-1) Mod 20 + 1]);
If s>max Then Begin max:=s; maxm:=i End
End;
WriteLn(maxm)
End.

没什么技巧 穷举吧

没悬赏懒得做

自己慢慢琢磨吧!

l